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Hb WINESGN - BASIC SGN function 
DEN 3; File: MTHSGN.MAR 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPHENT Cc CORPORATION, MAYNARD, MASSACHUSETTS. 
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SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 
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. FACILITY: Math Library 
; ABSTRACT: 


This module returns a 1 is the input is positive, a -1 if the 
input is negative, and a 0 if the input is 0. 


; ENVIRONMENT: User Mode, AST Reentrant 
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¢ MODIFIED BY: 


if ION Ot ai 
F a8 =f - Moke efit, musber three digits in Length. ct 


° or. x wi Sigective. JBS 22-D 


1-33 - kage a n“ups. Bae a “igs 16-AUG-1979 
6 - Correct a typo in edit 0 JBS 20-AUG-1979 
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: AUTHOR: R. WiLL, CREATION DATE: 30-Nov-78 
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ONS * 
.SBTTL DECLARATIONS 
$ INCLUDE FILES: 
> EXTERNAL DECLARATIONS: 
.DSABL GBL 
: MACROS: 


+ EQUATED SYMBOLS: 


input_addr = 4 
: OWN STORAGE: 


: PSECT DECLARATIONS: 


AO OD NAOM EWN (OOO NAU EWI OOONAULS UTD 
. . 


BONN NIN NINN NINO A AOAOAOOAAOOOIUIIUNUTUTH 


SEP-1 
SEP=1 


-PSECT _MTHSCODE PIC, USR, CON, REL 
EXE, RD, NOWRT, LON 


ob Midesar 


AX/VMS Ma 
MTHRTL.SRC 


cro 


IMT 


v0 
HS 


4-00 
GN.MAR; 1 


3; Prevent undeclared 
3; symbols from in 
; automatically global. 


LCL, SHR, - 
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= .SBTTL MTHSSGN = BASIC SGN function 
: FUNCTIONAL DESCRIPTION: 


This routine returns a 1 if the input is positive, a -1 if the 
input is negative, and a 0 if the input is 0. 


CALLING SEQUENCE: 
CALL sign.wl.v = MTHSSGN (x.rf.r) 


note: this works for f and d data types because for both f and d 
the ston ang exponent are in the same place, and all we are interested 
~ sig 
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is n and the value 0. The value zero is represented in both 
and d as a 0 sign and a 0 exponent. 


INPUT PARAMETERS: 
input_addr = 4 

; IMPLICIT INPUTS: 
NONE 

; OUTPUT PARAMETERS: 
NONE 

; IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


a1, 0, or -1 depending on the input sign 
SIDE EFFECTS: 
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WAIWIUAIAINIAIAIGAPIPINIPINININININIDY 9 9 PF MQDOOCDOOVOOOOOOO00000 000000 0N 0000 


CONAN SO OD NAMES UN $9 OD NAMEN @ O ODNAUN EWN 9 OONAUE WHO OONOULSW 


SOOOCOSOOSOOCOOOOSOOOOSOSOOSOOOOSOOSOSSOSOSOSOSOSOSOSOOOSOSOOOOSOOOOOOOOOOOOOOOO 


ee etd at a es = 4 — 4 2 9 3 = 2 2s os 1s ss 


NONE 
ENTRY MTHSSGN , “M<IV> 3; Entry point 
TSTF @input_addr (AP) 3; compare the input parameter to 0 
BGTR 1$ 3; positive 
BLSS 2s 3; negative 
- CLRL RO ; input was 0 
: RET 
C 1$ MOVL #1,R0 3 positive 
F RET 
O19 2s MNEGL #1,R0 3 negative 
1 RET 


num 
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‘ ~SBTTL MTHSSGN_R1 = JSB entry point 
FUNCTIONAL DESCRIPTION: 


This routine returns a 1 i 
input is negative, and a 0 


; CALLING SEQUENCE: 


sign.wl.v = JSB MTHSSGN (x.rf.v) 
: this works for f and d data types because for both f and d 
fhe sign and exponent are in the same place, and all we are interested 
he sign and the value 0. The value zero is represented in both 
f and d as a 0 sign and a 0 exponent. 


; INPUT PARAMETERS: 


Cc 
3 


GN f 


f the input is positive, a -1 if the 


t 
if the input is 0. 


; RO contains the argument 
: IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
; NONE 
; IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


a1, 0, or -1 depending on the input sign 
SIDE EFFECTS: 
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NONE 

1 ATHSSGN_R1:: ; RO has argument 

¢ TSTF RO ; compare the input parameter to 0 
BGTR 1$ 3 positive 

: BLSS 2s 3; negative 

§ CLRL RO : input was 0 
RSB 

5 1$: MOVL #1,R0 ; positive 

9 RSB 

¢ 2$: MNEGL #1,R0 3 negative 
RSB 

4 

5 - END 
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MTHSSGN 
Symbol table “SEP= MTHRTL.SRCJMTHSGN.MAR; 1 


mingech ,ROUBRNG Reg 


$m eme ce wmoae cece aas $ 


! Psect synopsis ! 


poem enm moe w ew eceeron $ 


PSECT name Allocation PSECT No. Attributes 
- ABS, BA 880008 ( 0.) 89 ( e-} NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 00000 [ wot CE Fob PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


poss omen en mene aw eimmam moa} 


! Performance indicators ! 


posers enmo mses aerscnmoneon + 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 $880: 08- 0:00:00.54 
pesnens processing BH 0: 0:00-4 8 08:8 x 
Symbol table sort 2 09 6; 0.09 0:6900-09 
ass :00:00. :00:02. 
Symbol table output 00:00:00:01 00:00:00:01 
Psect synopsis output 0 Bs SY B08 288 Be 
Cross-reference output 00:00:00.0 00:00:00.0 
Assembler run totals 28 00:00:01.51 00:00:08.19 


The working set Limit was 750 pages. 

1970 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 3 non-local and 4 local symbols. 
195 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


a Sete ee ree see wena eace ce acawm $ 


; Macro library statistics : 


Macro Library name Macros defined 
~$255$DUA28: [SYSLIBISTARLET.MLB; 2 aierygueta ee 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHSGN/OBJ=OBJ$:MTHSGN MSRC$:MTHSGN/UPDATE=(ENHS :MTHSGN) 
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